#!/usr/bin/perl

require './dftcfg-lib.pl';

#&ReadParse();
#&ReadParseMime();

&header($text{'upload_title'}, "", "index", 0, 1);


print "<form name=form_index action=rstcfg.cgi enctype=multipart/form-data method=post onsubmit='document.forms[0].upload.disabled=true;'>";

#print "<p><b>$text{'current_version'}</b>";

#print $version;

	print "<p><b>$text{'lable_location'}";

	print "<p><input name=inputfile type='file' class=text>";
	print "<p><input name=upload type=submit class=button1 value=\"$text{'submit_upload'}\" onclick='return onclk_submit();'>";

print "</form>";

print <<EOF;
<script>

function onclk_submit()
{

	if(document.forms[0].inputfile.value == "")
	{
		 alert("$text{'msg_infile_empty'}");
                 return false;
	}

        if(!confirm("$text{'msg_confirm'}"))
        {
                return false;
        }
}

</script>
EOF

&footer("", $text{"index"});
